rm(list = ls())

library(tidyverse)
library(janitor)

## Load Data 

dsl <- readxl::read_xlsx('data/dsl.xlsx', sheet = 2, skip = 4) %>% 
  clean_names() %>% 
  rename('year' = 1) %>%
  mutate_all(as.numeric) %>%
  rowwise() %>% 
  mutate(dsl = sum(c_across(2:5), na.rm = T))

## Plot This 

ggplot(dsl, aes(x = year, y = dsl)) + 
  geom_line() +
  geom_point(fill = 'white', shape = 21) + 
  theme_bw() + 
  labs(x = '',
       y = 'Total number of DSL\nconnections (millions)') + 
  scale_x_continuous(labels = unique(dsl$year), breaks = unique(dsl$year)) + 
  scale_y_continuous(limits = c(0, 30)) + 
  theme(axis.text.x = element_text(angle = 45, hjust=1))


